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Con il presente fascicolo prosegue la raccolta 
dei migliori programmi del C16 pubblicati su 
libri e riviste Jackson. 

In ogni numero un supergame originale ingle- 
se descritto nei minimi particolari ed in più 
una miriade di altri programmi scelti tra uti- 
lity, grafica, musica, giochi ecc. 

Ciascun listato è accompagnato da una recen- 
sione approfondita e da consigli per un corret- 
to utilizzo. 

Non solo potrete caricare immediatamente i 
programmi grazie al master su cassetta allega- 
to alla . confezione, ma anche personalizzarli 
servendovi dei listati e della descrizione pub- 
blicata alYinterno del fascicolo. 

La Jackson Soft Compilation, è una pubblica- 
zione creata su misura per voi appassionati 
allo scopo di arricchire sempre di più la vostra 
raccolta di programmi. 
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TIME SLIP 

Compito difficile quello che 
vi aspetta. In questo gioco 
appassionante e pieno di 
azione dovrete riuscire nel 
giro di 24 ore, tempo locale 
del gioco, a distruggere 36 
sfere temporali (che appaio- 
no sotto forma di sveglie 
con le lancette in movimen- 
to) e a sincronizzare il tem- 
po delle tre zone in cui si 
opera al tempo 00.00, altri- 
menti, a causa di un fenome- 




no temporale risalente ad 
un lontano pianeta, la terra 
può essere distrutta. 

La missione da svolgere av- 
viene su tre livelli: in super- 
ficie con un razzo che deve 
volare senza toccare monta- 


gne, nuvole e altri oggetti, e 
senza cadere a terra. In una 
serie di sotterranei pilotan- 
do un automa di acciaio ca- 
pace di sparare scariche di- 
struttive, e infine nelle pro- 
fondità del mare dove, alla 


guida di un sommergibile, 
dovrete combattere con poli- 
pi, colpire mine, abbattere 
paratie. Una varietà di og- 
getti pericolosi popola 
ognuna delle tre zone, ma 
particolarmente micidiali 
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sono i cannoni posti sopra 
le colline e nelle profondità 
marine. 

Avvio del gioco 

Inserire la cassetta, battere 


LOAD “Timeslip”, 1,1 e pre- 
mere Return e poi Play sul 
registratore. Quando il pro- 
gramma è stato caricato, 
premere Shift [F3], oppure 
battere Run e premere Re- 
turn. 


Comandi 

Il gioco funziona sia con il 
joystick, che con la tastiera. 
Per iniziare scegliere innan- 
zitutto il livello di difficoltà 
con Return (Novice: princi- 
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piante, Normali normale, 
Expert: esperto), o con il jo- 
ystick. Premere poi il pul- 
sante di sparo sul joystick, o 
la barra degli spazi sulla ta- 
stiera. Quando si presenta- 
no sullo schermo le tre zo- 
ne, si sceglie la zona in cui 
si vuole operare con il tasto 
Shift, oppure muovendo ver- 
so il basso il joystick. Scelta 
la zona, per avviare l’azione 
si preme il tasto A sulla ta- 
stiera o si sposta verso sini- 
stra il joystick. 

Non appena il mezzo a di- 
sposizione (razzo, automa o 
sottomarino) si muove, do- 
vrete controllarne il movi- 
mento col il joystick, o con i 
tasti Returp . per farl o anda-_ 
ve verso l’alto. Shift per far- 
lo andare verso il basso e la 
barra degli spazi o il pulsan- 

te di fuoco per gli spari . Il 
tasto S serve per fermarsi 

"(non subito però) e poter 

cambiare zona di azione. 

Lo stesso effetto di arresto. 
si ottiene spostando il jo- 
ystick verso destra.^ 


perdita di alcuni minuti di 
tempo a disposizione: 15 mi- 
nuti al livello principianti, 
30 minuti al livello di gioco 
normale e 45 minuti al livel- 
lo esperti. 

Il passaggio del tempo si 
può vedere in alto al centro 
dello schermo, mentre sulla 
sinistra avete i punti accu- 
mulati e sulla destra le sfere 


da distruggere (Orbs) e la 
zona in cui vi trovate. 

Le scritte sotto ogni zona in- 
dicano il numero di sfere in 
quella zona, il punteggio lo- 
cale, il tempo dell’orologio 
locale e lo stato della zona. 
Quest’ultimo può essere Fro- 
zen, quando la zona è conge- 
lata nel tempo, Select (lam- 
peggiante) che indica la zo- 



Regole del gioco 

Oltre a quanto già detto in 
apertura, va ricordato che, 
dopo cinque collisioni avvie- 
ne uno scivolone temporale 
(timeslip) per cui gli orolo- 
gi delle tre zone vengono 
messi su ore diverse. Oltre 
al tempo che scorre inesora- 
bile (un minuto del tempo 
locale corrisponde circa a 
un secondo dei nostri), tutte 
le volte che si ha un “time- 
slip” si è penalizzati con la 
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na che scorrerà quando ini- 
zia il gioco, Locked indican- 
te la zona in movimento e 
Free per indicare che quella 
zona cesserà di scorrere al 
prossimo segnale orario. 


Consigli 

Le munizioni a disposizione 
dei tre mezzi da voi guidati 
sono illimitate. Conviene 
quindi sparare in continua- 
zione se si vuole avanzare. 
Occorre fare anche attenzio- 
ne a quali sono gli oggetti 
che possono essere spazzati 
via con uno sparo e quelli 
che invece sono fissi. Questi 
ultimi vanno evitati, gli al- 
tri invece li dovete togliere 
di mezzo sparando. Anche i 
muri sono diversi fra di lo- 
ro: nei sotteranei vedrete 
che alcune pareti possono 
essere abbattute e altre no. 
Pericolosi gli oggetti in mo- 
vimento: gli aerostati e i 
missili per il razzo, i fanta- 
smi e le bolle di sapone per 
l’automa, le piovre giganti 
per il sottomarino. Dovete 
riuscire almeno una volta a 
percorrere tutte e tre le zo- 
ne fino in fondo: non finire- 
te di stupirvi dei paesaggi 
sempre nuovi che si presen- 
tano. Un gioco divertente, di 
movimento, e con una grafi- 
ca eccellente. 
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SUPERE RE AH 



Che c’è di meglio di una par- 
tita a “spaccamattoni”, come 
viene anche chiamato que- 
sto gioco, per riposarsi dagli 
stress quotidiani? Il gioco è 
tranquillo, piuttosto preve- 
dibile e quindi senza l’ansia 
che può accompagnarsi ad 
altri videogiochi più compli- 
cati. Si tratta di spaccare dei 
mattoni, ma non preoccupa- 
tevi se non siete degli esper- 
ti di karaté o di taekwondo. 
Riuscirete a rompere dei 
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20 D N $ - " {HOME} {24 CUR.GIU}{39 CUR.DES}" 
30 SC-307.2 : NB-9 : G0T0330 
40 G0T020 

50 V0L8:S0UND2,FF , 5 : RETURN 
60 REM 

70 GETA$ : I F A $ « "" TH EN A - 6 4 
80 IFA$-"I"THENA-1 2 
90 IFA$="P"THENA«36 
100 IFA-64THEN1 70 

1 10 PRINTLEFT$ (DN$ , BV )RIGHT$ ( DN$ , BH ) ; : FO 
RI- 1 TOBS : PRINT" " ; : N EXT 
120 BH-BH+C (A-12)-(A«36) )*2 
130 IFBH<8THENBH-8 
140 IFBH>38-BSTHENBH-38"BS 

150 PRINT LE FT$(DN$,BV)RIGHT$(DN$,BH) ; : FO 
R 1-1 TOBS SPRINT" {BLACK} {CBM U } ” ; : N E XT 
160 REM 

170 BX-BX + DX: BY-BY+DY : F F « 2 1 
180 IFBX<9THENDX--DX : G0SUB50 : G0T0230 
190 IFBX>36THENDX--DX : GOSUB50 : G0T0230 
200 I FBY< 1 THENBY * 1 : D Y - - D Y : GOSU B50 : GOTO 2 3 
0 

210 IFBY>23THENBY-23 : DY--DY : G0SUB50 
220 REM 

230 POKEBA , 32 : BA = SC + BY*40 + BX 
240 IFPEEK(BA)-1 20THENBA-B1 :DY--DY:FF-13 
3:G0SUB50 :GOT060 

250 IFPEEK(BA)-207THENDY--DY : FF-35 :GOSUB 
50: GS=GS+5“BS: PRINT" {HOME} {BLACK} {4 
CUR . Gl U } " GS 
260 POKEBA, 81 
270 REM 

280 IFGM-1 ANDBY>22ANDDY--1 THENNB-NB-1 :PR 
INT" {HOME} {12 CUR .GIU} { BLACK} "NB 
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290 IFGMOl ANDBY-1 2THENNB-NB-1 :PRINT"{H0 
ME } {12 CUR.GIU} {BLACK} "NB 
300 IFNB< 1 THEN 1 090 

310 NS«GS/(100*(5-BS) + 1 ) : I F I NT ( NS ) < > N STH 
EN 60 

320 ONGMGOSUB830 , 900 , 990 
330 REM 

340 COLOR 4 , 3 , 6 : COLORO , 3,6:PRINT"{CLR}{2 
CUR.GIU} {BLACK }"TAB( 19)" {SH Q} {GREEN 
} { SH Q}" 

3^5 FORT* 1 T01 00 : NEXT 

350 PRINT"{CLR}{3 CUR . GIU } { BLACK } "TAB ( 1 8 
)"{SH Q} {GREEN} {SH Q}" 

355 FORT-1 T01 00 : NEXT 

360 PRINT" {CLR }{ 4 CU R . Gl U } { GR EEN } " T A B ( 1 7 
)"{SH Q } {BLACK } { SH Q} {GREEN } { SH Q}{ 
BLACK} { SH Q } ” 

365 FORT-ITOIOO :NEXT 

370 PRINT" { CLR } { 5 CUR . GIU } { GREEN } "TAB ( 1 6 
) " { S H Q} { BLACK } { SH Q} { GREEN } {SH Q} 
{BLACK} {SH Q}" 

375 F0RT-1T01 00 : NEXT 

380 PRINT" {CLR }{ 6 CUR . GIU } { BLACK } "TAB ( 1 5 
) " { S H Q } {GREEN } { SH Q} { BLACK } { SH Q} 
{GREEN } { SH Q} { BLACK } { SH Q } {GREEN } { S 
H Q}" 

385 FORT*1 T01 00 : NEXT 

390 PRINT" {CLR }{ 7 CU R . Gl U } { BLAC K } " T A B ( 1 4 
) " { S H Q} { GREEN }{ SH Q} { BLACK } { SH Q} 
{GREEN } { SH Q} {BLACK} { SH Q} {GREEN} 
{SH Q}" 

395 FORT-1 T01 00 : NEXT 

400 PRINT" {CLR} {8 CUR . Gl U } { GREEN } "TAB ( 1 3 
) " { S H Q} {BLACK} {SH Q} {GREEN } { SH Q} 
{BLACK } { SH Q} {GREEN } { SH Q} { BLACK } { 
SH Q} {GREEN} {SH Q}{BLACK}{SH Q}" 

405 FORT* 1 T01 00 : NEXT 

410 PRINT" {CLR }{ 9 CUR . Gl U } { GREEN } "TAB ( 1 2 
) " { S H Q} {BLACK} { SH Q} {GREEN } { SH Q} 
{BLACK} { SH Q} {GREEN } { SH Q} {BLACK} 
{SH Q} { GREEN } { SH Q} { BLACK } { SH Q}" 
415 FORT-1T0100:NEXT 

420 PRINT" {CLR }{ 1 0 CUR . Gl U }{ BLACK } "TAB-C 1 
1 ) " { S H Q } {GREEN } { SH Q} {BLACK } { SH Q} 
{GREEN } { SH Q} {BLACK} { SH Q} {GREEN} 
{SH Q} { BLACK } { SH Q} { GREEN } { SH Q} { 
BLACK } { SH Q } {GREEN } { SH Q}" 

425 FORT=1T0100:NEXT 

430 PRINT" {CLR }{ 1 1 CUR . Gl U } { BLAC K } " TA B ( 1 
0 ) " { S H Q} {GREEN} { SH Q} { BLACK } { SH Q 
} {GREEN} {SH Q} {BLACK} { SH Q} {GREEN 
} { SH Q} { BLACK } { SH Q} {GREEN } { SH Q} 
{BLACK} { SH Q} { GREEN }{ SH Q}" 

4 70 FORT-1 T0200 : NEXT: FF = 35 : G0SUB50 
475 PRINT" {HOME} { 1 1 CU R . G I U } { BL AC K } " T A B ( 
1 0 ) "S" 

480 FORT-1 T0200 : NEXT : FF-21 :GOSUB50 
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muri di mattoni con la pun- 
ta delle dita. 

Ecco dunque una nuova ver- 
sione di Breakout, il famoso 
gioco in cui si devono demo- 
lire dei muri di mattoni con 
una palla. È possibile sele- 
zionare, oltre alla larghezza 
della racchetta usata per 
colpire la palla (2 oppure 
3), anche tre diverse confi- 
gurazioni dei muri. La pri- 
ma è quella classica, con un 
solo muro posto nella parte 
superiore dello schermo; 
nella seconda i muri sono 
due, uno in alto e l’altro in 
basso; la terza, infine, è la 
più spettacolare, in quanto 
abbiamo addirittura quattro 
muri, situati ai quattro an- 
goli del video. 

Lo scopo del gioco è quello di 
colpire e distruggere il mag- 
gior numero di mattoni, in- 
tercettando una pallina in 
continuo movimento sullo 
schermo. La palla rimbalza 
sulla racchetta, sui mattoni 
(prima di distruggerli) e sui 
IO 


485 PRINT" {HOME} { 1 1 CUR . GIU }{ GREEN } "T AB ( 

1 2 ) " U " 

490 F0RT-1T0200:NEXT:FF-35: GOSUB50 

495 PRINT" {HOME} { 1 1 CUR . GIU }{ BLACK } "TAB ( 

1 4 ) » P » 

500 FORT = 1 T0200 : NEXT : FF = 21 :G0SUB50 

505 PRINT" {HOME} { 1 1 CUR . GIU }{ GREEN } "TAB ( 

1 6) "E" 

510 FORT = 1 T0200 : NEXT : F F = 3 5 : G0SUB50 

515 PRINT" {HOME }{ 1 1 CUR . GIU }{ BLACK } "TAB ( 

1 8 ) " R " 

520 FORT = 1 T0200 : NEXT : FF-2 1 :G0SUB50 
525 PRINT" {HOME} { 1 1 CUR . GIU }{ GREEN } "TAB ( 
20 ) "B" 

530 FORT«1T0200:NEXT:FF«35: G0SUB50 
535 PRINT" {HOME} { 11 CUR . GIU }{ BLACK } "TAB ( 
22 )"R" 

540 FORT» 1 TO2OO:NEXT:FF-35:GOSUB50 
545 PRINT" {HOME} { 1 1 CUR . GIU }{ GREEN } "TAB ( 
24 ) "E" 

550 FORT=1T0200:NEXT:FF=35:GOSUB50 
555 PRINT" {HOME} { 1 1 CUR . GIU }{ BLACK } "TAB ( 
26 ) " A " 

560 FORT-1T0200:NEXT:FF»35: GOSUB50 
565 PRINT" {HOME }{ 1 1 CUR . GIU }{ GREEN } "TAB ( 
28) "K" 

610 FORT-1 T0200 : NEXT : FF-21 :PRINT"{2 CUR. 
GIU}" 

620 G0SUB50 

630 PRINT" { BLACK} { 4 SPC}{RVS ONjSELEZION 
A NUMERO SCHEMA ( 1 - 3 ) { 3 SPC}":F0RT-1 
T090 : NEXT 

640 PRINT" {CUR .SU }{ 4 S PC } SEL E Z I ON A NUMER 
0 SCHEMA ( 1 - 3 ) { 3 SPC}" ; : FORT - 1 T090 : N 
EXT 

650 GETGM $ : I FGM $ < " 1 " THENPRI NT" { CUR . SU } " : 
GOT0620 

660 IFGM$>"3" THENPRINT" {CUR .SU }" : G0T0620 
670 GM«VAL(GM$) : PRINT" {2 CU R . S I N } " GM : PR I 
NT : FF-35 
680 GOSUB50 

690 PRINT" { BLACK }{ 2 SPC}{R VS ONjSELEZION 
A MISURA RACCHETTA { 2 SPC}(2-3){3 SPC 
} " : FORT- 1 T090 : NEXT 

700 PRINT" {CUR .SU} {2 SPC } SELE Z I ONA MISUR 
A RACCHETTA{2 SPC} (2~3) {3 SPC}";:FOR 
T-1 T090 : NEXT 

710 GETBS$ : IFBS$<"2"THENPRINT" {CUR .SU } " : 
GOTO680 

7 20 IFBS$>"3"THENPRINT" {CUR .SU } " : GOTO 680 
730 BS-VAL ( BS$ ) : PRINT" { 2 CUR.SIN}"BS 
740 NB- 9 : GS-0 
750 FORT-1 T0500 : NEXT 

760 PRINT" {CLR } {BLACK} {7 SPC}{RVS ON } { 1 1 
SPC JSUPERBREAK { 1 1 SPC}" 
f 7 0 FORI-1 T023 : PRINT" {7 SPC}{RVS ON } {RV 
S OFF } {30 SPC} {RVS ON} " : N EXT 


780 PRINT" {BLACK} { 7 SPC}{RVS ON}{32 SPC} 
{HOME}" 

790 PRINT" {HOME} {3 CU R . Gl U } PUNT I " : P R I NTG 
S: PRINT" {2 CUR.GIU}RECORD":PRINTHS:P 
RINT"{2 CUR .GIUjPALLE" 

800 PRINTNB : PRINT" { 2 CUR . GIU } SCHEMA" : PRI 
NTGM 

810 PRINT" {2 CUR .GIUjMISURA" : PRINTBS 
820 0NGMGOTO830 , 900 , 990 
830 REM 

840 PRINT" {HOME} { 2 CUR . GIU }{ GREEN } " 

850 F0RJ-1T04 : PRINT" {8 CUR.DES}{RVS 0N}{ 
30 SH 0 } " : N E X T 
860 GS-GS+1 
870 IFSVOOTHEN 60 

880 SW-1 : B V » 2 1 :BH-17:BY-15:BX-18:BA«SC+B 
Y * 4 0 + BX : DX * - 1 : DY--1 
890 GOT0 1 1 0 
900 REM 

910 PRINT" {HOME} {2 CU R . Gl U } { R ED } " 

920 FORJ=1 T03 : PRINT" {8 CUR.DES}{RVS 0N}{ 
30 SH 0 } " : NE XT 
930 P R I N T " { 1 2 CUR. GIU}" 

940 F0RJ-1T03: PRINT" {8 CUR.DES}{RVS ON } { 
30 SH 0} " : NEXT 
950 GS-GS+1 
960 IFSW>0THEN60 

97 0 SW-1 : BV-1 3 : BH-20 : BY-1 0 : BX-21 : BA-SC + B 
Y * 4 0 + BX : DX-1 : DY--1 
980 GOT0 1 1 0 
990 REM 

1000 PRINT" {HOME} {2 CUR. GIU}" 

1010 F0RI-0T08 : PRINT" { 1 0 CUR . DES } " ; : FOR J 
-9-IT01 STEP- 1 : PRINT" {RVS ON } {BLUE} { 
SH 0}" ; : NEXT 

1020 PRINTSPC(I*2 + 8) ; : FOR J - 9" I TO 1 STE P- 1 : 
PRINT" {SH 0}" ; : NEXT : PRINT : NEXT : PRIN 
T 

1 030 FORI-0TO8 : PRINT" { 1 0 CUR . DES } " ; : FOR J 
-1T0I+1 : PRINT" {RVS ON}{BLUE}{SH 0}" 
; : NEXT 

1040 PRINTSPC( ( (8~I)*2)+8) ; :F0RJ-1T0I+1 : 
PRINT" {SH 0} " ; : NEXT : PRINT : NEXT : PRIN 
T" {HOME} " 

1050 GS-GS+1 
1 060 IFSW>OTHEN 60 

1070 SW-1 :BV*1 3: BH - 1 6 :BY-9 :BX«24 : BA-SC+B 
Y*40+BX: DX-1 : DY--1 
1080 GOTO 1 1 0 
1090 REM 

1100 PRINT" {HOME} { 1 3 CUR.GIU}{13 CUR. DES 
} GIOCHI ANCORA (S/N)?" 

1110 GET A $ 

1120 IFA$»"N"THENPRINT" {CLR } " : END 
1 1 30 IFA$<>" S" THEN 1 1 1 0 
1140 IFGS>HSTHENHS-GS 
1 150 SW-0 : GOTO340 


bordi dello schermo. I tasti 
che si usano per spostare la 
r racchetta sono [P] (verso 
destra) e [I] (verso sini- 
stra). Avete a disposizione 
nove palle; ne perdete una 
ogni volta che non riuscite 
ad intercettarla con la rac- 
chetta (in qualsiasi direzio- 
ne la palla si muova). Gua- 
dagnate due punti per ogni 
mattone colpito usando la 
racchetta grande e tre punti 
se utilizzate quella piccola. 
Se siete fortunati, la palla 
quando colpisce un mattone 
può rimbalzare in modo da 
colpire altri mattoni, e così 
via, innescando una specie 
di reazione a catena che vi 
farà guadagnare molti punti 
senza sforzo. Se riuscirete a 
colpire 100 mattoni potrete 
continuare la partita in un 
nuovo schermo con altri 
muri da distruggere. 

Tratto dalla rivista 
Paper Soft n. 1 7/85 
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Blackjack 



Conosci il Blackjack? È un 
gioco facile, in cui il caso ha 
un ruolo molto importante: 
ma, come sempre nei giochi 
d’azzardo, bisogna saper 
amministrare bene la fortu- 
na... oppure senza neanche 
accorgetene puoi trovarti 
senza più un soldo! 
L’avversario è il tuo Commo- 
dore 16, che tiene il Banco. 
Per cominciare disponi di 
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10 BL$«"{6 CBM B} {CUR.GIU} {6 CUR.SIN}»:C 
L $ - " {6 SPC} {CUR.GIU} {6 CUR.SIN}" :CN$ = 
» {HOME} {1 3 CUR.GIU}" 

■20 C A $ = " { 1 7 CUR .DES} " : NL$ = " {22 SPC}" 

30 C $ = " { 6 SH *}":D$-"{SH - } { CUR . GIU } { CUR 
.SIN} { SH -} {CUR.GIU} {CUR. SIN} {SH -}{C 
UR.GIU} {CUR. SIN} {SH -} {CUR.GIU} {CUR. S 
I N } { SH - } {CUR .GIU} {CUR .SIN } {SH -}{CUR 
.GIU} {CUR. SIN} {SH -} {CUR.GIU} {CUR. SIN 
} { SH - } " :CR=500 :DC$«" {2 CUR . GIU } " : MZ» 
52 

4 0 V0L.8 : DIMSS$ ( 3 ) :DIMPC(9):DIMCC(9) 

50 DIMCD$( 1 2) : D I MCN % ( 1 2) : F0RI-0T01 2 : READ 
CD $ ( I ) :CD$( I )-CD$( I )+" ":CN$(I) = 15:NE 
XTI 

60 DAT A A f 2, 3 , 4 , 5 ,6 ,7 ,8 ,9 , 1 0, J f Q,K 
70 CD$(9)-"1 0" :SS$(0)-" {RED} {SH S}":SS$( 

1 )="{RED} {SH Z}" :SS$ (2 )-" { BLACK} { SH X 
}" :SS$(3) = " {BLACK} {SH A}" 

80 PRINT" {CLR } { RED} " ;TAB( 1 4 ) ; " {RVS ON } B 
LACKJACK " 

85 IFMZ<10THENPRINTTAB(1 2) ; " {10 CUR.GIU} 
* NUOVO MAZZO *" :F0RI=1T02000:NEXT:G0 
SUB840 : G0T080 

90 PRINT" { YL-GREEN } { 2 CUR . Gl U } { CUR . DES } C 
{CUR.GIU} {CUR. SIN}0{CUR. GIU} {CUR. SIN} 
M{CUR.GIU} {CUR.SIN}P{CUR.GIU} {CUR. SIN 
}U{CUR.GIU} {CUR.SIN}T{CUR.GIU} {CUR. SI 
N}E{CUR.GIU}{CUR.SIN}R{9 CUR.GIU} {CUR 
.SIN}T{CUR.GIU}{CUR.SIN}U" 

100 L=0:CX$="{4 CUR . DES } " : SQ-0 : B-0 : CN-- 1 
: P N = ~ 1 : D B « 0 : S = 0 

1 1 0 CY$=CN$+DC$: GOSUB320 :P1$=DT$:PS«X:PN 
= 0 : PC ( PN ) =Y : G0SUB420 

120 C Y $ = DC $ : G0SUB320 :C1$=DT$:CS«X:CN*0:C 
C (CN ) * Y 

1 30 G0SUB560 :CY$=CN$+DC$:DT$=P1 $:X*PS:GO 
SUB380:RC$*CX$:RP$»CX$ 

140 PRINTCN$;CA$;" {D.BLUE} {2 SPC}QUANTO 
PUNTI{BLACK}";:INPUTB$:B»VAL(B$) 

150 PRINTCN$ ; CA$ ; NL$ 

160 IFB< 1 0RB>CRTHEN1 40 
170 G0SUB550 

180 CY$=CN$+DC$ : GOSUB320 : PN*PN+ 1 :PC(PN)= 
Y : PI $-DT$ : PS-X 

1 90 CY$=*DC$ : CX$*RC$: G0SUB320 :C2$ = DT$ :CS = 
X : C N = C N + 1 :CC(CN)=Y 

20 0 CY$ = CN$ + DC$:CX$ = RP$:DT$*P1 $ : X-PS: GOS 
UB380 : G0SUB420 
210 IFPV=21 THEN290 

220 PRINTCN$ ; CA$ ; " {BROWN } {2 SPC}{RVS ON } 
B { R VS OFF } ASTA 0 {RVS ON}C{RVS OFF } A 
R T A ? " ; 

230 GETA$ : IFA$-""THEN230 

240 IFA$<>"B" ANDA$<>" C" ANDA$<>" R"THENPRI 





NTCN$ ;CA$;NL$: SOUND 1 , 350 , 5 : G0T02 1 0 
250 IFA$-"C"THENG0SUB320 : PN-PN+1 :PC(PN)« 
Y.: GOSUB380 :G0SUB4 20 :G0SUB60 0 :G0T021 0 
260 IFA$O"R"0RDB>00RB>CRTHEN280 
270 GOSUB550 : DB-1 : G0T021 0 
280 IFA$O"B"0RPV<1 2THEN21 0 
290 S-1 : GOSUB570 : GOSUB480 
300 GOSUB600 

310 G0SUB320:CN-CN+1 : CC ( CN ) - Y : GOSUB380 : G 
0SUB480 : GOT0300 

320 SOUND 3, 700, 5: Y«INT(RND(1 ) * 1 3 ) : IFCNJK 
Y ) -OTHEN 320 

330 DT$-CD$(Y):X-INT(RND(0)*4) 

340 IF(CN$(Y)AND(2tX) )-0THEN320 
350 CN% ( Y)«CN*(Y)-2+X:MZ-MZ-1 
360 PRINT^' {HOME} {BLACK}" ;CY$;CX$; " {SH U} 
" ; C$; " {SH I } { CUR . GIU } { CUR . SIN } " ; D$ ; " 
{HOME}" ;CY$;CX$; " {CUR.GIU}" ;D$; "{CUR 
.GIU} {CUR .SIN } {SH J } " ; C$ ; " { SH K}"; 
370 PRINT" {HOME} " ;CY$ ; CX$; » {CUR .GIU } {CUR 
.DES }";BL$;BL$;BL$;BL$;BL$;BL$;BL$;B 
L$; :FORI-1T01000:NEXT:RETURN 
380 CC$-LEFT$(SS$(X) , 1 ) 

390 F0RI-1T0500: NEXT : P R I NT " { HOME } " ; C Y $ ; C 
X$ ; » {CUR.GIU} { CUR . DES } " ; CC$ ; DT$ ; " { 4 
SPC} {CUR .GIU} {6 CUR .SIN}" ;SS$(X) ; " {5 
SPC } {CUR .GIU} { 6 CUR. SIN}"; 

400 PRINTCL$;CL$;CL$;CL$;CL$;CL$; :CX$-CX 
$+"{3 CUR. DES}" 

410 S0UND1 ,1000,3:FORI-1T0500:NEXT:RETUR 
N 

420 PV-O: AC-0:FORI»OTOPN: PV«PV+PC(I)+1:I 
FPC ( I ) -OTHENPV-PV+1 0 : AC- AC +1 
430 IFPC(I)>9THENPV-PV-PC(I)+9 
440 NEXT 

450 IFPV>21 ANDAOOTHENPV-PV - 1 0 : AC-AC - 1 :G 
0T0450 

460 IFPV>21 THENL-1 
470 RETURN 

H«0 IFCN<OTHENRETURN 
.0 CV-0 : AC-0 : FORI-OTOCN : CV-CV+CC ( I ) + 1 :I 
FCC ( I ) -OTHENCV-CV+ 1 0 : AC- AC + 1 
500 IFCC(I )>9THENCV«CV-CC(I)+9 
510 NEXT 

520 IFCV>21 ANDAOOTHENCV-CV-IO: AC-AC-1 :G 
0T0520 

530 IFCV>21 THENL--1 
540 RETURN 

550 SQ-SQ + B : PRINTCN$ ; " {OR ANGE} {CUR .GIU} { 
CUR . DES}PUNTATA{2 SPC}${8 SPC}{8 CUR 
.SIN} {BL-GRN } " ;SQ:CR*CR-B 
5 60 PRINTCN$ ; " {OR ANGE } { CU R . DES } POSS I ED I 
$ { 8 SPC} {8 CUR . SIN }{ BL-GRN }"; CR : RETU 
RN 

570 PRINT" {HOME} { 3 CUR.GIU}{5 CUR. DES}"; 
CI $ ; " {CUR .GIU }{ 2 CU R . S I N } " ; SS$ ( CS ) ; " 
{CUR.GIU} {2 CUR . SIN } { 2 SPCHCUR.GIU 







500 dollari. All’inizio di 
ogni mano vengono distri- 
buite due carte a testa, e tu 
devi effettuare la tua punta- 
ta; fatto ciò devi decidere se 
fermarti o chiedere altre 
carte, tenendo conto che 
vince chi totalizza il punteg- 
gio più vicino a 21. Le figure 
valgono 10 e le carte dal 2 al 
10 conservano il loro valo- 
re. Per l’asso, invece, il di- 
scorso é un po’ diverso in 
quanto puoi scegliere se far- 
lo contare 1 oppure 11 a se- 
conda di ciò che più ti con- 
viene. In particolare, se le 
tue prime due carte sono un 
asso e una figura, hai 21 
punti serviti in mano: in 
questo caso si dice appunto 
hai il Blackjack, e la vittoria 
è sicura (a meno che non ce 
l’ahbia anche il Banco, il 
quale vince a parità di pun- 
teggio). 

Se invece hai pochi punti, 
chiedi un’altra carta pre- 
mendo C (se hai meno di 12 
sei obbligato a farlo). Puoi 
chiedere anche altre carte, 
ma stati attento: se superi i 
21 punti, “sballi” e perdi la 
mano! Quando ritieni di ave- 
re raggiunto un punteggio 
sufficiente, premi B per ve- 
dere il gioco del computer. 
Se ti senti sicuro delle tue 
carte, hai la possibilità di 
raddoppiare la posta pre- 
mendo R (puoi farlo una so- 
la volta nel corso di una ma- 
no e quando è il tuo turno). 

Tratto dalla rivista 
Paper Soft n. 20/85 


}{2 CUR.SIN}{2 SPC } {CUR . GIU } { 2 CUR.S 
I N } { 2 SPC} {CUR .GIU} {2 CUR.SIN}{2 SPC 
} {CUR. GIU} {2 CUR. SIN} {2 SPC}{CUR.GIU 
} { 2 CUR .SIN } { 2 SPC } " 

580 SOUND1 , 1 000 , 3 

590 CY$-DC$:CX$-RC$:DT$=C2$:X-CS: GOSUB38 
0 : GOSUB480 : RETURN 

600 IFL=1THENPRINTCN$;CA$;" {RED} {2 S PC } { 
FLASH ON } H A I SBALLATO !{ FLASH OFF}";: 
SOUND! ,800,10:SOUND1 ,700, 20: GOTO 780 
610 IFLO-1 THEN640 

620 PRINTCN$;CA$;NL$;CN$;CA$;" {PURPLE} {2 
SPC} {FLASH ON } HO S BALL ATO !{ FLASH OF 
F}"; : CR = CR + 2*SQ 

630 SOUND 1 ,800 , 10:FORI-1T050 :NEXT :S0UND1 
, 900 ,1 0: G0T0790 
640 IFCV021 ORCNOI THEN670 
645 GOSUB570 

650 PRINTCN$ ; CA$ ; " {BLACK} { 2 SPC}{FLASH 0 
N } HO IL BLACKJACK ! {FLASH OFF}";:SOUN 
D1,900,20:IFPV«21ANDPN-1THENCR-CR-3* 
SQ 

660 FORICI T01 0 :S0UND1 ,800+10*1, 10:NEXT:C 
R-CR-SQ : GOTO790 
670 IFS-OTHENRETURN 
680 IFPV021 ORPNOI THEN71 0 
690 PRINTCN$ ; CA$; " {BLACK} {2 SPC}{FLASH 0 
N } H AI IL BLACKJACK ! {FLASH OFF}";:CR = 
CR+ 3 *SQ : GOSUB570 

7 00 FORICI T030 : SOUND 1 ,300+10*1,10: S0UND2 
,420+10*1,10: FORJ-1 T050 : NEXTJ : NEXTI : 
GOTO790 

710 IFCV< 1 7THENPRINTCN$ ; CA$ ; " { BROWN } { 4 S 
PC }CARTA . . . { 4 SPC } " ; : RETURN 
720 IFCV<PVTHEN740 

730 PRINTCN$;CA$;" {BL-GRN} {2 SPC}HAI PER 
SO. {4 SPC } " ; : S0UND1 , 700 , 1 0 
735 FOR I = 1 T050 : NEXT :S0UND1 , 600 , 25 : G0T079 
0 

740 PRINTCN$ ; CA$ ; " {GREEN } { 2 SPC}HO PERSO 
. { 5 SPC } " ; 

7 50 FORI- 1 TO 1 0 : SOU ND 1 , 900+10*1, 10:FORJ«1 
T050:NEXTJ:S0UND1, 1000-10*1, 10:NEXT 
760 CR=CR+2*SQ 
770 G0T0790 
780 GOSUB570 

790 GOSUB560:PRINTCN$; n {CUR. GIU} {CUR.DES 
}" ;NL$;CN$;CA$;" {GREEN}{CUR.GIU}{2 S 
PC}UN' ALTRA MANO (S/N)?"; 

800 GETA$ : IFA$=" "THEN800 
810 IFA$ = " N"THENSCNCLR : END 
<820 IFCR>0THEN80 

830 PRINTCN$ ; CA$ ; " {D. BLUE} {FLASH ON}NON 
HAI PIU’ UN SOLDO ! {FLASH OFF}";:FORI 
= 1 T05000 : NEXT : SCNCLR : END 
840 MZ = 52:F0RI=0T01 2 : CN 56 ( I ) = 1 5 :NEXT : RETU 
RN 
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GRAFICI A TORTA 



Il grafico a torta consente la 
rappresentazione di un in- 
sieme di dati omogenei, met- 
tendo immediatamente in 
risalto il “peso” in percen- 
tuale dei singoli componen- 
ti. L’intera torta, cioè l’area 
del cerchio, rappresenta il 


IO D I M A $ ( 1 1 ) , A ( 1 1 ),B(11) 

20 GR APHICO , 1 

30 INPUT " TITOLO ";Z$:G0SUB50:T$=Z$:Z$="" 
40 INPUT" NOTA" ; Z$:GOSUB50 : N $ * Z $ : GOTO 6 0 
50 F0RI=1T0(40-LEN(Z$) ) / 2 : Z $ = " "+Z$:NEXT 
I : RETURN 

60 PRINT : INPUT "SETTORI" ;N 
70 IFN>12THENPRI NT "TROPPI": GOTO 60 
80 FORI-OTON- 1 : PRINT 
90 PRINT 1 + 1; "SCRITTA" ; : INPUTA$( I ) 

100 PRINTI+1 ;" VALORE" INPUTA ( I ) 

110 PRINTI + 1 ; "ESPLOSO { 2 SPC } N " ; : I N PUT " { 3 
CUR .SIN } " ; B$ 

120 IFB$<>"N"THENB(I)-1 :ELSEB(I)=0 
1 30 T = T + A ( I ) 

140 NEXTI 

150 C-2*tt/T : P-360/T 
1 60 GRAPHIC1 , 1 
1 70 CHAR , 0 , 0 ,T$ 

1 80 CHAR , 0 , 24 , N$ 

190 T0~0 : T 1 *0 

200 FORI «OTON- 1 

210 T1-T1+A(I):T2-T1-A(I)/2 . 

220 SO-SIN (TO*C ): COLCOS (TO*C ) 

230 S2 = SIN (T2*C ) : C2-C0S (T2*C ) 

240 IFB(I)-1THENX9-1 60+S2*6:Y9=100-C2*6: 

ELSEX9-1 60 : Y9«1 00 
250 LOC ATEX9 , Y 9 
260 DRAWT0+S0*60 ,-C0*60 
270 CIRCLE,X9,Y9,60,60,T0*P,T1*P, ,1 
280 DR AWT0X9 , Y9 
290 T0*T1 
300 LOC ATEX9 , Y9 
310 L0CATE+S2*60 , - C2*60 
320 DRAWT0+S2*15,-C2*15 



100% del totale, mentre i 
singoli settori (le fette del 
la torta) rappresentano le 
varie parti del tutto, cioè 
le componenti dell’intera 
torta. 

Quando è necessario si può 
evidenziare uno o più setto- 
ri staccandoli leggermente 
dai settori adiacenti. Il set- 
tore, che si definisce “esplo- 
so”, risalta immediatamente 
nell’insieme dei dati rappre- 
sentati. 

In macchina vengono im- 
messi il titolo del grafico, 
che si posizionerà in alto al 
centro, l’eventuale nota a 
piè pagina, le scritte che 
servono a contraddistingue- 
re i vari settori e i dati nu- 
merici assoluti. Il program- 
ma si incaricherà di rica- 
varne grafico e percentuali. 
Nel programma non si è ri- 
corsi ad alcun tipo di trat- 
teggio per distinguere i vari 
settori. Questi sono comun- 
que molto bene individuati 
dalle scritte “guidate” da 
una linea spezzata che parte 
dalla metà dell’arco di cer- 
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chio che delimita ciascun 
settore. Il massimo di setto- 
ri permessi dal programma 
è di 12. Quando però vi sono 
settori molto piccoli e ravvi- 
cinati possono sorgere dei 
problemi perché le scritte 
si possono sovrapporre. 
NeH’usare il programma, te- 

330 

3^0 

350 

360 

370 

380 

nete sempre presente que- 

390 

sto particolare. 

400 

Tratto della rivista 


Bit N. 62 Giugno/85 



AWTO- 1 5 , +0 
X - R DOT ( 0 ) : Y-RDOTC 1 ) 
X0-X/8+ 1 : X2-39-X0-LE 
HENX0-X0+X2 


R , X 1 , Y/8, A $ ( I ) 
P$-STR$(INT(A(I)/T*1000< 
P$-RIGHT$(P$,LEN(P$)-1 ) 
IFX> 1 60THENCHAR , XO, Y/8+ 1 
,X/8-LEN(P$) , Y/8+1 ,P$ 


Guida 
all’input 
CI 6 


Norme per la 

battitura 

I caratteri grafici, ottenuti 
con la pressione dei tasti 
“Shift” e “CBM”, sono codifi- 
cati in modo da indicare il 
tasto da premere assieme a 
“Shift” o “CBM”. Es. il cuori- 
cino è codificato con >SH 
S <. Il numero dentro le pa- 
rentesi indica le volte che il 
tasto va premuto. 


TABELLA DI CONVERSIONE 


{HOME} HOME 

{ C L R } PULIZIA SCHERMO 

{CUR.SU} CURSORE IN ALTO 

{ C U R .GIU} CURSORE IN BASSO 

{CUR.DES} CURSORE A DESTRA 

{CUR.SIN} CURSORE A SINISTRA 

{ SPC } SPAZIO 

{ RVS ON } REVERSE ON 

{ RVS OFF } REVERSE OFF 

{ FLASH ON } FLASH ON 

{ FLASH OFF } . . . .FLASH OFF 

{ INST } INSERT 

{BLACK} COL. NERO (CTRL+1) 

{WHITE} COL. BIANCO (CTRL + 2) 

{RED} COL. ROSSO (CTRL + 3) 

{ C Y A N } COL. CIANO (CTRL+4) 

{PURPLE} COL. PORPORA (CTRL + 5) 

{GREEN} COL. VERDE (CTRL + 6) 

{BLUE} COL. BLU (CTRL + 7) 

{YELLOW} COL. GIALLO (CTRL + 8) 

{ORANGE} COL. ARANCIO (CBM+1) 

{BROUN} COL. MARRONE (CBM + 2) 

{YL-GREEN} COL. GIALLO-VERDE (CBM+3) 

{PINK} COL. ROSA (CBM+4) 

{BL'-GRN} COL. BLU-VERDE (CBM + 5) 

{ LT . BLUE } COL. BLU CHIARO (CBM + 6) 

{ D . BLUE } COL. BLU SCURO (CBM + 7) 

{LT. GREEN} COL. VERDE CHIARO (CBM + 8) 
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- RUBRICA 


1 0 0 MEM-50 : LW ■ 1 : COLOR 4 , 1 : COLORO , 1 : VOL8 
110 PRINT" {CLR } { 3 CUR .GIU } { YELLOW } { 9 SPC 
} { R VS ON } C { R VS OFF } ASSETTA OPPURE {R 
VS ON } D { R VS OFF}ISCO? H 
1 2 0 GETDV$:IFDV$<>"C"ANDDV$<>"D"THEN1 20 
130 IFDV$-"D"THEN 1 70 

HO PRINT" (3 CUR. GIU}{4 SPC}RUBRICA GIÀ' 
REGISTRATA { 2 SPC}(S/N)?" 

1 50 GETG$ : IFG$<>"S" A N DG $ < > " N " TH EN 150 
160 IFG$-"N"THENLW-0 

170 DIMQ(MEM) ,A$(MEM,6) , CT ( MEM ) ,CY(6) 

180 GOTO240 

190 FORJ-1 T02500 : NEXT 

200 RETURN 

210 FR- 1 OO+RND ( 1 )*500 
220 SOUND 1 ,FR ,30 
230 RETURN 

240 P$«" {HOME} {26 CUR . GIU } " : T4-28 
25 0 COLOR 4, 8 SCOLORO ,8:T1 -3 : T2- 1 0 : T3- 1 5 :T 
5-1 3 : COLORO , 2 

260 PRINT" {CLR }{ RVS ON } { OR AN GE } { 7 SPC}{L 
T . BLUE } { SH U } { 2 4 SH C}{SH I } {OR ANGE } 
{6 SPC}"; 

270 PRINT" {8 SPC} {LT .BLUE} {SH B}{WHITE}{ 
24 SPC} {LT. BLUE} {SH 3}{0RANGE}{6 SPC 
}" ; 

280 PRINT" {8 SPC } {LT .BLUE} { SH J } { 2 4 SH C 
} {SH K} {ORANGE} {7 SPC}" 

290 PRINT" {HOME} {CUR.GIU}"SPC(1 1 )" {RED} 
RUBRICA INDIRIZZI {BLACK}" 

300 PRINT" {RVS ON } { D . BLUE } { 2 SPC}{SH U}{ 
4 SH C } { SH I } { 2 SPC} {SH U} {25 SH C}{ 
SH I } { 3 SPC}"; 

310 PRINT" {BLACK} 1 {D . B^UE} {SH B}{RVS OF 
F } { 4 SPC } {RVS ON } { SH B } { 2 SPC}{SH B} 
{RVS OFF } { 25 SPC } {RVS ON}{SH B } { 2 SP 
C}" ; 

320 PRINT" {3 SPC } { SH J } { 4 SH C}{SH K}{2 
SPC } { SH J } { 25 SH C } { SH K}{3 SPC}"; 
330 PRINT" {2 SPC } { SH U } { 9 SH C}{SH I } { 2 
SPC } { SH U } { 1 8 SH C } { SH I}{5 SPC}"; 
340 PRINT" {BLACK}2{D. BLUE} {SH B}{RVS OF 
F } { 9 SPC } {RVS ON } { SH B}{2 SPC}{SH B} 
{RVS OFF } { 1 8 SPC } { R VS ON}{SH B } { 4 SP 
C}"; 

350 PRINT" {3 SPC } { SH J}{9 SH C } { SH K}{2 
SPC } { SH J } { 1 8 SH C } { SH K}{5 SPC}"; 
360 PRINT" {2 SPC } { SH U}{6 SH C}{SH I } { 5 
SPC } { SH U } { 1 2 SH C } { SH I } { 1 1 SPC}"; 
370 PRINT" {BLACK} ^D. BLUE} {SH B}{RVS OF 
F } { 6 SPC} {RVS ON} {SH B } { 5 SPC}{SH B} 
{RVS OFF } { 1 2 SPC }{ RVS ON}{SH B } { 1 0 S 
PC}" ; 

380 PRINT" {3 SPC } { SH J } { 6 SH C } { SH K}{5 
SPC } { SH J } { 1 2 SH C } { SH K } { 1 1 SPC}"; 
390 PRINT" {2 SPC } { SH U } { 5 SH C}{SH I } { 4 
SPC } { SH U } { 2 SH C } { SH I } { 4 SPC}{SH U 



Questo programma può ser- 
virvi sia per il lavoro, che 
per archiviare gli indirizzi 
di amici e conoscenti. I dati 
che si possono memorizzare 
sono il nome (cognome e no- 
me), l’indirizzo (via e nume- 
ro), la città, la provincia, il 
codice postale e il telefono 
(con prefisso). Le informa- 
zioni possono poi essere vi- 
sualizzate sullo shcermo o 
stampate su carta, creando 
in tal modo delle schede per 
un archivio. I dati vengono 
memorizzati su nastro o di- 
sco, e sono richiamabili 
17 





ogni volta che si fa girare il 
programma. 

Aggiunta: serve ad aggiun- 
gere nuovi nominativi alla 
rubrica. Il tasto [Del] du- 
rante la battitura non fun- 
ziona, per cui, se commette- 
te degli errori, questi do- 
vranno essere corretti dopo 
aver immesso tutte le infor- 
mazioni. 

Cancellazione : serve a can- 
cellare dalla rubrica un sin- 
golo nominativo. Sarà bene 
prima vedere la scheda da 
cancellare con il comando 
che segue, per essere sicuri 
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} { 3 SH C}{SH I } { 2 SPC } { SH U } { 5 SH C} 
{SH 1} { 5 SPC}" ; 

400 PRINT" {BLACK}4{D.BLUE} {SH B}{RVS OF 
F } { 5 SPC } { R VS ON } { SH B}{4 SPC}{SH B} 
{ R VS OFF } {2 SPC } { RVS ON}{SH B}{2 SPC 
} {BLACK}5{D.BLUE} {SH B}{RVS 0FFH3 
SPC } {RVS ON } { SH B } { 2 SPC}{SH B}{RVS 
OFF } { 5 SPC } { R VS ON } { SH B}{4 SPC}"; 
410 PRINT" {3 SPC } { SH J}{5 SH C}{SH K}{4 
SPC } { SH J } { 2 SH C } { SH K } { 4 SPC}{SH J 
} { 3 SH C } { SH K } { 2 SPC} { SH J}{5 SH C} 
{SH K } { 5 SPC}"; 

420 PRINT" {2 SPC } { SH U}{4 SH C}{SH I}{5 
SPC } { SH U } { 1 3 SH C } { SH I } { 1 2 SPC}"; 
430 PRINT" {BLACK}6{D. BLUE} {SH B}{RVS OF 
F } { 4 SPC } {RVS ON } { SH B}{5 SPC}{SH B} 
{RVS OFF } { 4 SPC } {RVS ON }{ BLACK }/{ RVS 
OFF } { 8 SPC} {D. BLUE} {RVS ON}{SH B}{1 
1 SPC}"; 

440 PRINT" {3 SPC} { SH J } { 4 SH C}{SH K } { 5 
SPC} { SH J } { 1 3 SH C } { SH K } { 1 2 SPC}"; 
450 PRINT" {40 SPC}"; 

460 PRINT" {40 SPC}" 

470 PRINTLEFT$(P$,5)SPC(T1 )" {BLACK} {RVS 
0 N } N 0 M E " 

480 PRINTLEFT$(P$ ,8)SPC(T1 )" {RVS ONjINDI 
RIZZO" 

490 PRINTLEFT$(P$ , 1 1 )SPC(T1 )" {RVS 0N}CIT 

TA» " 

500 PRINTLEFT$(P$, 1 4)SPC(T1 )"{RVS 0N}PR0 
V . "SPC (TI + 1 1 ) "CAP" 

510 PRINTLEFT$(P$ , 1 7)SPC(T1 )" {RVS ON } TEL 

u 

520 PRINT" {CUR . GIU } { 2 SPC}{R VS ON } { R ED } 

A {RVS OFF } { BLACK } AGGIUNGI "SPC ( 8 )" { 
RVS ON } {RED} C {RVS OFF } {BLACK} CANC 
ELLA" 

530 PRINT" {CUR .GIU }{ 2 SPC}{RVS ON } {RED} 

S {RVS OFF } { BLACK } ST AMP A " SPC ( 1 0 ) " { R 
VS ON} F {RVS OFF} FINE" 

540 F0RJ-1T01 00 : NEXT :G0SUB21 0 
550 FORJ-1 T02000 : NEXT 
560 IFLW-1THENLW-0 : G0T01 860 
5 70 0-0+1 : PRINTLEFT$(P$ ,2 )SPC( 1 1 )"{ORANG 
E } F A I LA TUA SCELTA " : IFO-3THENO-0 : G 
0T061 0 

580 FORJ-1T0500 :NEXT : PRINTLEFT$(P$ ,2 )SPC 
(11 ) " { 1 8 SPC }" 

590 F0RJ-1 T01 00 : NEXT 
600 GOT0570 
610 GETKE YG$ 

620 SS$-"" ^SL$-" " 

630 IFG$-"A"THEN680 
640 IFG$-"C"THEN21 50 
650 IFG$-"S"THEN2360 
660 IFG$-"F"THEN2790 
670 GOT0610 


680 Q=Q+ 1 

690 F0RJ=1T0100:NEXT :G0SUB210 
700 PRINTLEFT$(P$ , ? )SPC ( 1 1 ) " {OP.ANGE} { 6 S 
PC } NOME? { 7 SPC} {BLACK}" 

710 FORX» 1 T025 

720 PRINTLEFT$(P$ ,5)SPC(T2+X )" {CBM + }" 
730 FORJ-1 T05 : NEXT 

7^0 PRINTLEFT$(P$,5)SPC(T2+X)" »; 

7 50 GETG$ : GOSUB2 880 : I FG$ = " " THEN7 20 
760 IFG$=CHR$(1 3 )THENPOKE239 , 0 : G0T0800 
770 PRINTLEFT$(P$,5)SPC(T2+X)G$ 

780 A $ ( Q , 1 ) = A $ ( Q , 1 ) + G$ 

790 NEXT 

800 IFLC=1THENLC=0:G0T01 490 
810 FORJ- 1 T01 00 : NEXT : G0SUB21 0 
820 PRINTLEFT$(P$ , 2 ) S P C ( 1 1 )" {GRANGE} { 4 S 
PC } INDIRIZZO? { 4 SPC} {BLACK}" 

830 F0RX-1T018 

840 PRINTLEFT$ (P$ , 8 ) S P C ( T 3 + X ) " {CBM +}" 

850 FORJ- 1 T05 : NEXT 

860 PRINTLEFT$ ( P$ , 8 ) SPC ( T 3 + X ) " "; 

87 0 GETG$ : GOSUB2880 : I FG $ * " " THE N 8 4 0 
880 IFG$-CHR$(13)THENP0KE239,0: GOT0920 
890 PRINTLEFT$(P$,8)SPC(T3+X)G$ 

900 A$(Q,2)*A$(Q,2)+G$ 

910 NEXT 

920 IFLC-1THENLC-0:GOT01 490 
930 FORJ-1 T01 00 : NEXT : G0SUB21 0 
940 PRINTLEFT$(P$,2)SPC(1 1 )"{0RANGE}{5 S 
PC } C ITTA ' ? { 6 SPC} {BLACK}" 

950 F0RX-1T012 

960 PRINTLEFT$(P$ , 1 1 )SPC(T3 + X)" {CBM + }" 
970 FORJ-1 T05 : NEXT 

980 PRINTLEFT$(P$ , 1 1 )SPC(T3 + X)" "; 

990 GETG$ : GOSUB2880 :IFG$-"»THEN960 
1000 IFG$-CHR$(13)THENPOKE239,0: GOTO 1 0 40 
1010 PRINTLEFT$ ( P$ , 11)SPC(T3+X)G$ 

1020 A$(Q,3)”A$(Q,3) + G$ 

1030 NEXT 

1040 IFLC-1 THENLC-0 : G0T01 490 
1 050 FORJ-1 T01 00 : NEXT : G0SUB21 0 
1060 PRINTLEFT$(P$,2)SPC(1 1 )" {OR ANGE} {4 
SPC } PROVINCIA? { 4 SPC} {BLACK}" 

1070 F0RX-1T02 

1080 PRINTLEFT$(P$ , 1 4 )SPC(T5+X)" {CBM +}" 
1090 FORJ- 1 T05 : NEXT 

1100 PRINTLEFT$(P$ , 1 4 )SPC (T5 + X)" "; 

1110 GETG$ : G0SUB2880 : IFG$-""THEN1 080 
1120 IFG$»CHR$( 1 3 )THENPOKE2 39 ,0 : G0T01 1 60 
1 1 30 PRINTLEFT$(P$ ,14)SPC(T5+X)G$ 

1140 A $ ( Q , 4 ) - A$ (Q , 4 ) + G$ 

1150 NEXT 

1160 IFLC- 1 THENLC-0 : G0T01 490 
1170 FORJ- 1 T01 00 : NEXT : G0SUB21 0 
1180 PRINTLEFT$ (P$ , 2 )SPC ( 1 1 )" {ORANGE} CO 
DICE POST A LE ? { 2 SPC}{BLACK}" 

1190 F0RX-1T05 



di battere il nome corretta- 
mente. 

Stampa: la presentazione 
dei dati può avvenire sia su 
video, che tramite stampan- 
te. I dati verranno presenta- 
ti nello stesso ordine in cui 
sono stati immessi, per cui 
se vogliamo avere i nomi in 
ordine alfabetico, sarà bene 
pensarci prima di iniziare 
l’immissione. 

Fine: da selezionare la ter- 
mine delle operazioni. Per- 
mette l’archiviazione su na- 
stro o su disco delle infor- 
mazioni presenti in memo- 
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ria. 

Il programma merita qual- 
che parola di commento su 
come è stato ideato. Come si 
è detto, Rubrica è molto faci- 
le da usare, ma non altret- 
tanto si può dire della sua 
struttura. 

Il listato risultata privo di 
commenti, per cui può risul- 
tare piuttosto difficile da 
analizzare. Questo spartano 
uso delle istruzioni permet- 
te però di lasciare maggiore 
spazio libero in memoria 
per poter accumulare un no- 
tevole numero di dati. Il co- 
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1 200 PRINTLEFT$(P$ , 1 4)SPC(T 1 I + X) n {CBM + } " 

1210 FORJ-1 T05 :NEXT 

1220 PRINTLEFT$(P$, 1 4)SPC(T4+X)" 

1 2 30 GETG$ : G0SUB2 880: I FG$ - " " THE N 1 200 
12 40 PRINTLEFT$(P$,1 4)SPC(T4+X)G$ 

1250 A$(Q,5)«A$(Q,5)+G$ 

1 260 NE XT 

1270 IFLC-1THENLC-0:GOT01 490 
1280 FORJ-1 T01 00: NEXT :G0SUB21 0 
1290 PRINTLEFT$(P$ ,2 )SPC( 1 1 ) " { OR ANGE } { 4 
SPC}TELEF0N0?{5 SPC}{BLACK}" 

1300 F0RX-1T04 

1310 PRINTLEFT$(P$ , 1 7 )SPC(T5 + X)" {CBM + }" 
1320 F0RJ-1T05:NEXT 

1330 PRINTLEFT$(P$ , 1 7 )SPC(T5+X)" "; 

1340 GETG$:G0SUB2880: I FG$ - " " THE N 1 310 
1350 PRINTLEFT$(P$,17)SPC(T5+X)G$ 

1360 C$-C$+G$ 

1370 NEXT 
1380 F0RX-1T08 

1390 PRINTLEFT$(P$ , 1 7 )SPC(T5 + 5+X ) " {CBM + 
}" 

1400 FOR J - 1 T05 : NEXT 

1410 PRINTLEFT$(P$,17)SPC(T5+5+X)" 

1 420 GETG$ : GOSUB2880 : IFG$-" "THEN 1 390 
1430 PRINTLEFT$(P$,17)SPC(T5+5+X)G$ 

1440 CI $-C1 $+G$ 

1450 NEXT 

1460 A$(Q,6)-C$+"/"+C1$:C$-"":C1$»"" 

1470 IFLC-1THENLC-0:G0T01 490 
1480 F0RJ-1T0100:NEXT :G0SUB210 
1 490 F0RJ-1TO100:NEXT:X-0:GOSUB210 
1500 X-X+1 : PRINTLEFT$ ( P$ , 2 )SPC ( 1 0 ) " {ORAN 
GE } TUTTO Gl USTO { 2 SPC } ( S/N ) ? " : I FX- 3 
THENX-0 : G0T01 540 

1510 FORJ-1 T0500 :NEXT:PRINTLEFT$(P$,2)SP 
C(10)"{20 SPC}" 

1 520 FORJ-1 T01 00 : NEXT 
1 530 GOT0 1 500 
1540 GETKE YG$ 

1550 IFG$»"S" THEN250 
1560 IFG$-"N"THEN1580 
1 570 GOT0 1 5 40 

1 580 FORJ-1 T01 00 : NEXT : X-0:G0SUB21 0 
1590 X-X+1 :PRINTLEFT$(P$,2)SPC(10)"{ORAN 
GE } { 2 SPC } DATO ERRATO N . ? { 3 SPC}":I 
FX-3THENX-0:GOT01 630 

1 600 FORJ-1T0500 : NEXT : PRINTLEFT$ ( P$ , 2 )SP 
C(10)"{20 SPC}" 

1610 FORJ-1T0100:NEXT 
1 620 GOTO 15 90 
1630 GETKE YG$ 

1640 ONVAL (G$ )G0T01 660 ,1690,1720,1750,17 
80,1810 
1650 G0T01 630 

1660 PRINTLEFT$ ( P$ , 2 ) SPC ( 1 1 ) " { OR AN GE } { 2 
SPC} CORREGGI • NOME {3 SPC}" : A$(Q, 1 )»" 


1 670 F0RZ-3267T032H3STEP- 1 : POKEZ , 32 : FOR J 
»1T0100:NEXT:NEXT 
1680 LC-1 : G0T0690 

1690 PRINTLEFT$(P$,2)SPC(11)" {ORANGE} COR 
REGGI INDIRIZZO" : A$ (Q , 2 ) - 
170 0 F0RZ-3 385T03368STEP-1 : POKEZ , 32 : FOR J 
=» 1 T 0 1 00 : NEXT :NEXT 
1710 LC-1 : G0T08 1 0 

1720 PRINTLEFT$(P$,2)SPC(1 1 )" {ORANGE} CO 
RREGGI CITTA' {2 SPC } " : A $ ( Q , 3 ) » " " 

1 7 30 F0RZ-3499T03488STEP- 1 : POKEZ , 32 : FORJ 

- 1 T01 00 : NEXT : NEXT 
1 7^0 LC-1 : G0T0930 

1750 PRINTLEFT$(P$,2)SPC(11)" {OR ANGE} COR 
REGGI PROVINCIA" :A$(Q, 4 )-»" 

1760 F0RZ-3607T03606STEP- 1 :POKEZ,32:FORJ 
-1T0100:NEXT:NEXT 
1 770 LC-1 : GOTO 10 50 

17 80 PRINTLEFT$(P$,2)SPC(11)" {ORANGE} (3 
SPC JCORREGGI CAP{3 S PC } " : A $ ( Q , 5 ) = " " 
1790 F0RZ-3625T03621STEP-1: POKEZ ,32: FORJ 
*1T0100:NEXT :NEXT 
1 800 LC-1 : GOTO 1 1 70 

1810 PRINTLEFT$(P$,2)SPC(1 1 )"{ORANGE}COR 
REGGI TELEFONO ":A$(Q,6)-" M 
1820 F0RZ-3729T03726STEP-1 :POKEZ,32:FORJ 
-1T0100:NEXT :NEXT 

1830 F0RZ-3738T03731STEP-1 : POKEZ, 32:FORJ 

- 1 T01 00 : NEXT : NEXT 
1 840 LC-1 : GOTO 1 280 
1850 G0T01630 

1860 PRINTL'EFT$(P$,2)SPC(1 1 )" {ORANGE} CA 
R IC AMENTO DATI ": FOR J - 1 T02000 : NEXT 
1870 IFDV$»"D"THEN1 920 

1880 PRINT" {CLR } { 3 CU R . Gl U } { R ED } { 2 SPC}I 
NSERISCI LA CASSETTA-DATI RIAVVOLTA 
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1 890 PRINTSPC ( 1 2 )"E PREMI UN TASTO" 

1900 GETKE YG$ 

1910 OPEN 7,1 ,0, "DATI": GOTO I960 
1920 PRINTLEFT$(P$,2)SPC(1 1 )"{2 SPCjATTE 
NDI PREGO { 3 SPC}" 

1930 0PEN7 ,8 ,7 , "DATI ,S ,R" 

1940 OPEN 1 5 ,8 , 1 5 : INPUT# 1 5 , E$ , E 1 $ , E 2$ , E 3$ 
1 950 IFVAL(E$ )«62THENCLOSE7 : CL0SE1 5 : GOTO 
250 

1960 SS-0 
1970 SS-SS+1 

1 980 F0RJ-1T06 : INPUT #7 , A$ (SS , J ) : NEXT 
1990 IFST-0THEN1 970 
2000 Q-SS 

2010 CL0SE7 : CLOSE 1 5 
2020 G0T0250 

2030 „PRINTLEFT$(P$,2)SPC(1 1 )" {ORANGE} SA 
LVATAGGIO DATI ": FOR J - 1 T02000 : NEXT 
2040 IFDV$-"D"THEN2090 

2050 PRINT" {CLR} {3 CUR . GIU } { RED } { 2 SPC}I 


dice, ridotto così all’essen- 
ziale, permette di avere un 
lavoro dalle caratteristiche 
altamente professionali. 
All’inizio si presenta sullo 
schermo una maschera per 
l’immissione dei dati già 
predisposta, con i campi in 
bianco che accettano i dati, 
mentre il resto dello scher- 
mo è disabilitato all’introdu- 
zione di scritte. Unica cosa 
da ricordare: prima di co- 
minciare l’immissione dei 
dati, si deve scegliere rag- 
giunta premendo il tasto 
con la lettera A. 
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Si ha qui un ottimo esempio 
di come si riesca ad ottenere 
un risultato molto buono 
con pochi elementi di grafi- 
ca a bassa risoluzione. È un 
programma che, per i risul- 
tati che ottiene e per il modo 
in cui li ottiene, andrebbe 
studiato a fondo per capirne 
bene i meccanismi. 
Un’avvertenza: se usate re- 
gistrare i dati su cassetta, 
abbiate l’accortezza di usare 
un lato di una cassetta solo 
per i dati della rubrica. La 
cassetta va riawolta dopo 
ogni registrazione o lettura 
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NSERISCI LA CASSETTA-DATI RIAVVOLTA 

2060 PRINTSPC ( 1 2 )"E PREMI UN TASTO{CUR.G 
IU}" 

2070 GETKE YG$ 

2080 0PEN6 , 1 , 1 , "DATI" :G0T021 1 0 
2090 PRINTLEFT$(P$,2)SPC(1 1 )"{2 SPC}ATTE 
NDI PR EGO { 3 SPC}" 

21 00 0PEN6 , 8 , 6 , "§ : DATI ,S ,W" 

21 1 0 FORLS-1 TOQ 

2120 FORJ-1 T06 :PRINT#6,A$(LS,J):NEXT:NEX 
T 

2130 CL0SE6 
2140 G0T02850 

2150 PRINTLEFT$(P$,2)SPC(11)"{0RANGE}{2 
SPC} CANCELLAZIONE {3 SPC } " : FÓR J * 1 TO 1 
000 : NEXT 

2160 FORJ-1 T01 00 :NEXT :G0SUB21 0 
2170 PRINTLEFT$(P$ ,2)SPC( 1 1 )» {6 SPCjNOME 
? { 7 SPC} {BLACK}" 

2180 F0RX-1T025 

2190 PRINTLEFT$(P$ ,5)SPC(T2+X)" {CBM +}" 
2200 F0RJ-1TO5 :NEXT 

2210 PRINTLEFT$(P$ ,5)SPC(T2+X)" "; 

2220 GETG$:GOSUB2880:IFG$»""THEN2190 
2230 IFG$-CHR$ ( 1 3 )THENPOKE239 , 0 : GOTO 22 7 0 
2240 PRINTLEFT$(P$ ,5)SPC(T2+X)G$ 

2250 DL$-DL$+G$ 

2260 NEXT 

2270 ES»0:FORAS-OTOQ: IFDL$»A$(AS , 1 )THENE 
S»AS: AS-Q 

2280 NEXT: IFES>0THEN2320 

2290 PRINTLEFT$(P$ ,2)SPC(1 1 )" {ORANGE} NO 
ME NON TROVATO " : FORJ - 1 T02000 : NEXT 
2300 D L $ - " " 

2310 G0T0250 
2320 DL$-"":SD-0 
2330 FORSD-ESTOQ 

2340 F0RJ«1T06:A$(SD,J)«A$(SD+1 ,J):NEXT: 
NEXT 

2350 Q-Q-1 : GOT0250 

2360 PP.INTLEFT$(P$ ,2 )SPC( 1 1 ) " {ORANGE} {RV 
S ON } V { R VS OFFjIDEO 0 {RVS ON}S{RVS 
OFF }TAMPANTE {BLACK}" 

2370 GETKE YG$ 

2380 IFG$«"V"THEN241 0 

2390 IFG$-"S"THEN2600 

2400 GOT02370 

2410 FORAR-OTOQ 

2420 IFA$ ( AR , 1 ) -""THEN2580 

2 4 30 PRINTLEFT$(P$ ,5)SPC(T2+1 )A$(AR, 1 ) 

2440 PRINTLEFT$(P$,8)SPC(T3+1)A$(AR,2) 

2450 PRINTLEFT$(P$,11)SPC(T3 + 1)A$(AR,3) 

2460 PRINTLEFT$(P$,14)SPC(T5+1)A$(AR,4) 

2470 PRINTLEFT$(P$,14)SPC(T4+1)A$(AR,5) 

2480 PRINTLEFT$(P$ , 1 7 )SPC (T5+1 )A$(AR,6) 

2 4 90 PRINTLEFT$ (P$ , 2)SPC( 1 1 )" {ORANGE} {3 


SPClPREMI UN TASTO { 3 SPC}{BLACK}" 
2500 GETKE YG$ 

2510 F0RZ-32 67T032 4 3STEP-1 : POKEZ , 32 : FORJ 
-1 T01 0 : NEXT : NEXT 

2 520 F0RZ-3 385T03 368STEP-1 : POKEZ , 32 : FORJ 
-1 T01 0 : NEXT : NEXT 

2530 F0RZ-3499T03488STEP-1 : POKE Z , 3 2 : FOR J 
* 1 T0 1 0 :NEXT :NEXT 

2540 FORZ-3607T03606STEP- 1 : POKEZ , 32 : FOR J 
-1 T01 0 : NEXT : NEXT 

2550 F0RZ-3625T03621 STEP-1 : POKE Z , 3 2 : FOR J 
*1 T01 0 : NEXT : NEXT 

2560 F0RZ-3729T03726STEP-1 :POKEZ,32:FORJ 
*1T010:NEXT :NEXT 

2570 F0RZ-3738T03731 STEP-i :POKEZ,32:FORJ 
*1T010:NEXT :NEXT 
2580 NEXT 
2590 GOT0250 

2600 PRINT" {CLR} { 3 CUR . GIU } { RED } { 2 SPC}P 
OSI ZIONA LA CARTA AD INIZIO PAGINA" 
2610 PRINTSPC ( 1 2 )"E PREMI UN TASTO" 

2620 GETKE YG$ 

2630 OPEN4,4:CMD4 
2640 GOSUB2860 
2650 FORPR-OTOQ 
2660 PL-PL+1 

2670 IFA$(PR , 1 )-""THEN2740 
2680 PRINTA$(PR, 1 )TAB(26“LEN(A$(PR, 1 ) ) ) A 
$ ( PR , 2 ) ; 

2 6 90 P R I NTT A B ( 1 9-LEN(A$(PR,2)))A$(PR,3); 
2700 PRINTTAB ( 1 3“LEN(A$(PR,3)))A$(PR,4); 
2710 PRINTTAB (3"LEN(A$(PR ,4)))A$(PR,5); 
2720 PRINTTAB ( 6-LEN (A$ (PR ,5)))A$(PR,6); 
2730 PRINT 

2740 IFPL-60THENFORPD-1 T04 : PRINT : NEXT :G0 
SUB2860 

2750 NEXT : IFPL-0THEN2770 

2760 PD-62-PL:FORPK»1TOPD: PRINT :NEXT 

2770 PRINT//4 : CL0SE4 

2780 GOTO 250 

2790 IFQ-0THEN2850 

2800 PRINTLEFT$(P$,2)SPC(11)" {OR ANGE} SEI 
S I C U RO ( 2 SPCHS/N)?" 

2810 GETKE YEN$ 

2820 IFEN$»"S"THEN2030 
2830 IFEN$=" N" THEN250 
2840 GOT02810 
2850 PRINT" {CLR}":END 

2860 PRINT" NOME "SPC(22)"INDIRIZZO"SPC(10 
) "CITTA ’ "SPC (7 ) "PR CAP { 3 SPC}TELEFO 
NO" 

2870 FORL-0TO79: PRINT"»"; : NEXT : PL-0 s RETU 
RN 

2880 IFG$*"{CUR.GIU}"ORG$*"{CUR.DES}"ORG 
$*" {ORANGE}"ORG$* M {CUR .SIN }"ORG$«CH 
R$ ( 20 )THENG$-" " 

2890 RETURN 


e reinserita riawolta prima 
di usarla. Se invece avete il 
disco, il programma gestirà 
l’archivio direttamente sul 
disco. Se poi possedete an- 
che una stampante, potrete 
vedere i vostri dati stampati 
in modo permanente su 
carta. 

Tratto dalla rivista 
Paper Soft n. 23/85 
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Il programma Dayplan met- 
te a disposizione un’agenda 
nella quale si ha la possibili- 
tà di scrivere gli appunta- 
menti settimanali. E possi- 
bile anche predisporre una 
serie di segnali acustici che 
ci ricordino nel corso della 
giornata gli impegni presi e 
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1000 REM******************************** 
1010 REM INIZIALIZZAZIONE 

1020 REM******************************** 
1 030 : 

1040 : 

1050 GOSUB 14000 : COLOR 1,6,4 
1 060 S P $ = " (38 SPC}" : REM 38 SPAZI VUOTI 
1 070 DIM TT$ (9 ) , TT (9 ) , ARRAY$ ( 6 , 1 5 ) 

1080 : 

1 090 : 

1100 Q$ = "" : DO UNTIL Q$*"S" 

1110 TRAP 1 1 030 

1120 INPUT "{2 CUR .GIU } INSERISCI LE ORE 
( HHMMSS ) : " ;TI$ 

1 1 30 TRAP 
1 1 40 TT-TI 
1 150 GOSUB 7000 

1160 PRINT " {CUR .GIU }SONO LE ORE: ";TT$ 
1170 INPUT n {CUR .GIU }SONO ESATTE (S/N):" 
; Q$ 

1 1 80 LOOP 
1190 : 

1 200 : 

1210 RESTORE : FOR 1*0 TO 6 : READ T$ : 

DD$(I)-T$ : NEXT 
1 220 : 

1 230 : 

1240 INPUT "{3 CUR . Gl U } DE V I CARICARE DAT 
I DAL NASTRO (S/N):";LD$ 

1 250 IF L D $ * " S " THEN GOSUB 121.10 
1 260 : 

1 270 : 

1280 FOR 1-0 TO 6 : FOR J«0 TO 15 
1 290 IF ARRAY$(I , J ) * » » THEN ARRAY$(I,J)« 
SP$ 

1300 NEXT J,I 
1310 : 







1 320 : 

1 330 DATA DOM ,LUN ,MAR ,MER ,GI0 , VEN ,SAB 
1 340 : 

1350 : 

2000 REM******************************** 
2010 REM MENU 

2020 REM******************************** 
2030 : 

2040 DO UNTIL Z-7 
2050 GOSUB 14000 
2060 COLOR 1,12,4 

2070 PRINT "{3 CUR .GIUjCOMANDI DISPONIBI 
LI : " 

2080 COLOR 1,4,4 

2090 PRINT " { 2 CUR . Gl U } { 3 SPC}1) MODIFIC 
A IL TIMER» 

2100 PRINT " { 3 SPC } 2 ) VISUALIZZA IL TIME 
R" 

2110 PRINT " { 3 SPC } 3 ) SCHERMO VUOTO ED A 
TTESA» 

2120 PRINT » { 3 SPC } 4 ) MODIFICA GLI IMPEG 
NI" 

2130 PRINT " { 3 SPC } 5 ) VISUALIZZA GLI IMP 
EGNI" 

2140 PRINT " { 3 SPC } 6 ) REGISTRA GLI IMPEG 
NI" 

2150 PRINT " { 3 SPC } 7 ) STOP» 

2160 COLOR 1,12,4 

2170 PRINT " { 2 CUR.GIUjLA TUA SCELTA: »; 
2180 : 

21 90 : 

2200 GOSUB 15000 
2210 Z«VAL(T$) 

2220 ON Z GOSUB 6000,5000,13000,10000,90 
00 , 1 2000 
2230 LOOP 
2240 : 

2250 : 

2260 SCNCLR : END 
2270 : 

2280 : 

3000 REM******************************** 
3010 REM SUONERIA 

3020 REM******************************** 

3030 : 

3040 : 

3050 GOSUB 14000: COLOR 1,6,4 : TM-1 
3060 CHAR , 1 5 ,5 , "SUONERIA" : PRINT 
3070 PRINT " { 5 CUR. GIU} ";I;" »; 

3080 TT-TT(I) 

3090 GOSUB 7000 

3100 PRINT T T $ ; " - »;TT$(I) 

3110 : 

31 20 : 

3130 VOL 7 
31 40 TT-TI 

3150 T $ * " " : DO UNTIL TI>TT + 3600 OR T$<> 




ci impediscano di perdere 
affari per dimenticanza. 
Suddiviso in due sezioni di- 
stinte, Timer e Dayplan, il 
programma dispone di 10 
temporizzatori attivabili in 
qualunque momento e della 
possibilità di annotare fino 
a 16 appuntamenti al gior- 
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no per i sette giorni della 
settimana (dal lunedì alla 
domenica). 

Il menù si compone di sette 
voci: 

1) Modifica il timer 

2) Visualizza il timer 

3) Schermo vuoto ed attesa 

4) Modifica gli impegni 
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3160 SOUND 1 ,750,30 
3170 SOUND 1 , 650 , 30 
3180 FOR J-1 TO 2000 : NEXT 
3190 GET T $ 

3200 LOOP 
3210 VOL 0 
3220 RETURN 
3230 : 

32110 : 

il 000 REM******************************** 
4010 REM MODULO DI CONTROLLO 
4020 REM******************************** 
4030 : 

4040 : 

4050 FOR 1-0 TO 9 
4055 T2-TT ( I ) 

4060 IF T2CTI AND T2>TI“36000 AND T2O0 
THEN GOSUB 3000 : TT(I)-0 : TT$(I)= 

ti ti 

4070 NEXT I 
4080 RETURN 
4090 : 

4100 : 

50 00 'REM******************************** 
5010 REM VISUALIZZA IL TIMER 
5020 REM******************************** 
5030 : 

5040 : 

50 50 T $ * » » : DO UNTIL T$<>"» 

5060 : 

5070 : 

5080 GOSUB 14000: COLOR 1,6,4 
5090 CHAR ,11 , 4 , " { R V S ON ) 0 R A R I E IMPEGNI 
" : P R I N T 

5100 PRINT " {CUR .GIU }S0N0 LE ORE: {2 CUR 
.GIU}» 

5110 FOR 1-0 TO 9 
5 1 20 COLOR 1 , 4- ( I AND 1 ) , 4 
5130 PRINT I;» - »; 

51 40 TT-TT ( I ) 

5150 GOSUB 7000 

5160 PRINT T T $ ; » - » ;TT$(I) 

5170 NEXT I 
5180 : 

5190 : 

5200 COLOR 1,6,4 : IF PART THEN PART-0 : 
RETURN 

5210 REM PART INDICA QUEL MODULO CHIAMAT 
0 AD INTERROMPERE LA ROUTINE 
5220 : 

5230 : 

5240 CHAR ,0,23,» (FLASH ON } ATTENDI " 

5250 T $ - " » : DO UNTIL T$<>"" OR TM 

5260 TT «TI 

5270 GOSUB 7000 

5280 CHAR , 1 4 , 6 , TT $ : PRINT 


5290 GOSUB 4000 

5300 GET T $ : LOOP : TM-0 

5310 : 

5320 : 

5330 LOOP 
53 *10 RETURN 
5350 : 

5360 : 

6000 REM******************************** 
6010 REM REGOLAZIONE DEL TIMER 
6020 REM******************************** 
6030 : 

6040 : 

6050 PARTII : GOSUB 5080 

6055 TT-TI : GOSUB 7000 : CHAR ,14,6,TT$ 
6060 CHAR ,0,19,"" 

6065 GET T $ : INPUT "{2 CU R . Gl U } QUALE TI 
MER USI (0-9):";NN 

6070 INPUT "FRA QUANTO TEMPO ( HHMMSS ) : " ; 
TT$ 

6080 INPUT "PER QUALE SCO PO : " ; TT $ ( NN ) 
6090 T1-TI : GOSUB 8000 
6100 TT ( NN ) -TT + T 1 

6110 IF TT (NN ) >51 84000 THEN TT ( NN ) = TT ( NN 
) -5 1 84000 
6120 RETURN 
61 30 : 

6140 : 

7000 REM******************************** 
7010 REM STRINGHE CON IL TEMPO 
7020 REM******************************** 
7030 : 

7040 : 

7050 TT * I NT ( TT / 60 ) 

7060 HH-INT(TT/3600 ) 

7070 MM«INT(TT/60)-60*HH 
7080 SS«TT--60*MM-3600*HH 
7090 : 

7100 : 

7110 HH$ - RIGHT$("00"+MID$(STR$(HH) ,2) , 
2) 

7120 MM$ - RIGHT$("00"+MID$(STR$(MM) ,2) , 
2) 

7130 SS$ * RIGHT$("00"+MID$(STR$(SS) ,2) , 
2) 

7140 TT$»HH$+"-"+MM$+"-" +SS$ 

7150 RETURN 
71 60 : 

7170 : 

8000 REM******************************** 
8010 REM STIMA DEL TEMPO 

8020 REM******************************** 
8030 : 

8040 : 

8050 TT-0 

8060 TT«TT+3600*VAL(LEFT$(TT$ ,2 ) ) 

8070 TT«TT+60*VAL(MID$(TT$,3,2) ) 


5) Visualizza gli impegni 

6) Registra gli impegni 

7) Stop 

Le prime tre opzioni (1-3) 
sono relative alla predispo- 
sizione e lettura del timer, 
mentre le successive tre (4- 
6) riguardano gli appunta- 
menti dell’agenda settima- 
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naie. Il programma, che ori- 
ginariamente usava il disco 
come supporto di memoria 
di massa, è stato modificato 
per poterlo usare con la cas- 
setta. 

L’ultima delle opzioni (7) fa 
terminare il programma. La 
potete usare, per fermare 
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8080 

8090 

8100 

8110 

8120 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

9080 

9090 

9100 

9110 

9120 


TT-TT+VAL(RIGHT$(TT$,2) ) 

TT-TT# 60 

RETURN 


T$* " " : DO UNTIL T$<>"" 


GOSUB 14000 


RIGHT-0 : DO UNTIL RIGHT 
INPUT "{2 CUR .GIU JQUALE GIORNO (LUN 
, M AR DD$ 

9130 RIGHT-1 : FOR D A Y *0 TO 6 : IF DD$<> 
DD$ ( DA Y ) THEN NEXT DAY : GOSUB 1112 
0 

LOOP 


91 40 
9150 
9160 
9170 
9180 

9190 

9200 
9210 
9220 
9230 
9240 
9260 
9270 
9280 
9290 
9300 
9310 
9320 
9330 
9340 
9350 
9360 
1 0000 
10010 
1 0020 
1 0030 
1 0040 
1 0050 
1 0060 
1 0070 
1 0080 
1 0090 
10100 


GOSUB 14000 : COLOR 1,6,4 

CH AR , 1 7 , 4 , " { R V S ON } " : PRINT DD$ ( D 

AY) 

FOR J-0 TO 15 : COLOR 1,3~(J AND 1) 
,4 

CHAR ,1 , J + 6 , ” { R V S ON}” 

PRINT ARRAY$ (DAY , J ) 

NEXT J 
COLOR 1,6,4 

IF PART-1 THEN PART-0 : RETURN 


CHAR ,0,23,"" 
GOSUB 15000 


LOOP 

RETURN 


REM******************************* 
REM MODIFICA IMPEGNI 

REM******************************* 


PARTII 
GOSUB 9080 


QU I T $ * " " : DO UNTIL QUIT$-"N" 


10110 


10120 

NN-16 : DO UNTIL NN>»0 AND NN<«15 

10130 

CHAR , 0 , 23 , "POSIZIONE DEL NUMERO:" 

• 

: INPUT NN 

10140 

LOOP 

10150 


10160 


10170 

TT $« " " : DO UNTIL LEN(TT$)«6 : TT $ 


M ii ii 

10180 

CHAR , 0 , 2 3 » S P $ 

10190 

CHAR ,0,23, "ORA ( HHMM ) ; " : INPUT T 


r$ : TT$»TT$+"00" 

1 0200 

LOOP 

10210 

CHAR , 0 , 2 3 , SP $ 

1 0220 

GOSUB 8000 : GOSUB 7000 

1 0230 


1 0240 


1 0250 

RI GHT »0 : DO UNTIL RIGHT : RIGHT-1 

1 0260 

CHAR , 0,23, "IMPEGNO: " : INPUT Q$ 

1 0270 

IF LEN(D$)>28 THEN GOSUB 11060 

1 0290 


10300 


10310 

ARRAY$(DAY ,NN )»LEFT$(LEFT$(TT$ , 5 ) + 


' "+Q$+SP$,38) 

1 0320 

IF TT * 0 THEN ARR A Y$ (DAY,NN)-SP$ 

1 0330 


10340 


1 0350 

CHAR , 0 , 23 , SP$ 

1 0360 

P A RT * 1 : GOSUB 9180 

1 0370 

CHAR , 0 , 23 , SP$ 

1 0380 


1 0390 

: 

1 0400 

CHAR ,0,23, "PREMI UN TASTO : " 

10410 

GOSUB 15000 

1 0420 

QUIT$«T$ 

1 0430 

LOOP 

1 04^0 

RETURN 

1 0450 


1 0460 


1 1000 

REM a****************************** 

11010 

REM MESSAGGIO D’ERRORE 

1 1 020 

REM a****************************** 

1 1030 

PRINT "ORA INSERITA NON CORRETTAME 

NT E" : RÉSUMÉ 

1 1040 


1 1050 


1 1060 

RIGHT-0 

1 1 070 

PART-1 : SCNCLR : GOSUB 9170 

1 1 080 

CHAR ,0 ,23 , "TROPPO LUNGO" : FOR I» 


1 TO 2000 : NEXT 

1 1 090 

RETURN 

11100 


11110 


11120 

RIGHT-0 : PRINT "GIORNO NON INSERÌ 

TO CORRETTAMENTE" : RETURN 

11130 


11140 



definitivamente il program- 
ma dopo aver registrato i 
dati su nastro. 

Dayplan può essere utile se 
si hanno molti impegni e se 
si vuole avere, nel luogo do- 
ve si lavora, un’infallibile 
segretaria che ci ricordi con 
puntualità e pignoleria gli 
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appuntamenti della giorna- 
ta. Il programma è altamen- 
te modulare e può essere un 
buon esempio di questo me- 
todo di programmazione ap- 
plicata al Basic. 

Programma tratto dal libro 
“ Essenziali e routine” 


Non perdete il 
prossimo numero di 
Jackson Soft 
Compilation. Lo 
troverete in edicola il 
10 Novembre 


1 2000 REM#*********#***###*##**######### 
12010 REM FILE DATI SU NASTRO 
12020 REM**********#**##*#***#*##*##**** 
12030 : 

12040 : 

12050 PRINT "INSERIRE IL NASTRO DATI RIA 
VV0LT0" : OPEN 1 ,1 ,1 , "TIMEDATA" 
12060 FOR 1-0 TO 6 : FOR J-0 TO 15 
1 2070 P R I NT # 1 , ARR A Y $ ( I , J ) : NEXT J,I 

1 2080 PRINT//1 : CLOSE1 : RETURN 
12090 : 

12100 : 

12110 PRINT "INSERIRE IL NASTRO DATI RIA 
VVOLTO" : OPEN 1 ,1 ,0," TIMEDATA" 
12120 FOR 1-0 TO 6 : FOR J-0 TO 15 
12130 INPUT //I ,ARRAY$(I,J) : NEXT J,I 
12140 CL0SE1 : RETURN 
12150 : 

12160 : 

1 3000 REM******************************* 
13010 REM SCHERMO VUOTO E STATO D’ATTESA 
1 3020 REM******************************* 
13030 : 

13040 : 

1 3050 T $ » " " : DO UNTIL T$<>"" 

13060 SCNCLR : CHAR , 1 7 , 1 2 , " { R VS ON } TI ME 
R": PRINT 

13070 CHAR ,13,14,"" 

13080 GOSUB 15000 
13090 LOOP 
13100 RETURN 
13110 : 

13120 : 

1 4000 REM********#*******###***##**###** 
14010 REM TITOLO 

1 4020 REM************##**#*#****######** 
14030 : 

14040 : 

14050 COLORO, 1 : COLOR 1,9,5 : SCNCLR 

1 4060 CHAR , 8 , 0 , " { S H U } { 20 SH C}{SH I}" 
14070 CHAR ,8,1 , " { SH - } TIMER E DAY PLANN 
ER {SH 

14080 CHAR , 8 , 2 , " { S H J } { 20 SH C}{SH K}" 
14090 PRINT 
14100 RETURN 
14110 : 

14120 : 

15000 REM******************************* 
15010 REM ATTESA DEL TIMER 
15020 REM#******#*#****#*#*#*###**###*** 
15030 : 

15040 : 

15050 PRINT "{FLASH ONjSONO IN ATTESA" 

1 5060 T $ « " " : DO UNTIL T$<>"" OR TM 

15070 GOSUB 4000 

15080 GET T $ : LOOP : TM-0 

15090 RETURN 
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ELENCO DEI TITOLI DISPONIBILI 


I tascabili Jackson sono uno 
strumento prezioso per chi lavora 
c on i l computer. 

•SINCLAIR SPECTRUM cod. 017H 
•VIC 20 cod. 005H 
•COMMODORE 64 cod. 002H 
-PC IBM cod. 018H 
■APPLE Ile cod. 003H 
■SHARP MZ80A cod. 014H 
•LA PROGRAMMAZIONE cod. 004H 
•WORD STAR cod. 008H 
•UNIX cod. 009H 
•LOGO cod. 020H 
•MS-DOS cod. 019H 
•PROGRAMMI DI STATISTICA cod. 
01 5H 

•CP/M cod. 01 IH 
•PC-DOS cod. 012H 


•BASIC cod. 007H 
•ASSEMBLER Z80 cod. 016H 
•ASSEMBLER 6502 cod. 013H 


•COBOL cod. 001 H 
■FORTRAN 77 cod. 010H 
•PASCAL cod. 006H 
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